home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbbatch / com / delete_port < prev    next >
Text File  |  1995-05-05  |  2KB  |  101 lines
  1. ;
  2. ;       DELETE PORT : AMMS-Script zum Einrichten eines neuen Ports
  3. ;
  4. ;       VERSION : $VER: 1.02 / 10.03.1994
  5. ;
  6. ;       Mit diesem Script werden alle Verzeichnisse & Files von einem Port
  7. ;       geloescht.
  8. ;
  9. ;
  10. ;       Das Script sollte so eingebunden werden, dass es ueber Level und
  11. ;       Flags auf die folgende Befehle zugreifen kann :
  12. ;
  13. ;    CHECK FILE
  14. ;    ECHO
  15. ;    EOD
  16. ;    EXTERN
  17. ;    GOSUB
  18. ;    GOTO
  19. ;    IF
  20. ;    MENU
  21. ;    PARSE
  22. ;
  23. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  24. ;
  25. ;    DELETE
  26. ;
  27.  
  28. ; Parameter auswerten
  29.  
  30.  _parse "'{COMNAME}'" P0 N/Port PORT        ; Parameter auswerten
  31.  _if PORT == "" then _eod
  32.  
  33. ; Pruefe, ob Port schon existiert
  34.  
  35.  _check file "amms:startup/'PORT'" UNKNOWN_PORT    ; Wenn nicht vorh., verzw.
  36.  
  37. ; Sicherheitsabfrage !
  38.  
  39.  _menu "^JPort 'PORT' wirklich loeschen ? N#left#" -
  40.   "N^M" END -                    ; Nein -> Ende
  41.   "JY" DELETE_PORT                ; Ja -> Port loeschen
  42.  
  43. ; Alle Files und Directories loeschen
  44.  
  45. DELETE_PORT:
  46.  _echo                        ; LF
  47.  
  48.  NAME="files:uploads/'PORT'"            ; Dir fuer Uploads loeschen
  49.  _gosub DELETE_DIR
  50.  NAME="mbmsg:point/'PORT'"            ; Dir fuer Point loeschen
  51.  _gosub DELETE_DIR
  52.  
  53.  NAME="amms:startup/'PORT'"            ; Start-File loeschen
  54.  _gosub DELETE_FILE
  55.  NAME="mbdevs:'PORT'.set"            ; Settingsfile loeschen
  56.  _gosub DELETE_FILE
  57.  
  58.  _echo "^JFertig !"                ; Endmeldung ausgeben
  59.  _goto END                    ; -> Ende
  60.  
  61.  
  62. ;
  63. ;       Unbekannter Port
  64. ;
  65. UNKNOWN_PORT:
  66.  _echo "^JDer Port 'PORT' existiert nicht !"    ; Fehlermeldung ausgeben
  67.  
  68. ;
  69. ;       Ende
  70. ;
  71. END:
  72.  _echo                        ; LF
  73.  _eod                        ; Batch beenden
  74.  
  75. ;
  76. ;       Unterroutine zum Loeschen eines Files
  77. ;
  78. DELETE_FILE:
  79.  _echo/nolf "Loesche File 'NAME' ... "
  80.  _extern/q delete "'NAME'"
  81.  _goto CHECK_DELETE
  82.  
  83. ;
  84. ;       Unterroutine zum Loeschen eines Verzeichnisses
  85. ;
  86. DELETE_DIR:
  87.  _echo/nolf "Loesche Directory 'NAME' ... "
  88.  _extern/q delete "'NAME'" all
  89. ; _goto CHECK_DELETE
  90.  
  91. ;
  92. ;    Unterroutine zum Loesch-Pruefen eines Files/Verzeichnisses
  93. ;
  94. CHECK_DELETE:
  95.  _check file "'NAME'" CHECK_DELETE_OK
  96.  _echo "Fehler !"
  97.  _return
  98. CHECK_DELETE_OK:
  99.  _echo "Ok !"
  100.  _return
  101.